namespace eval ::Fear {
	StartTCL::Provide
	variable ::Fear::Spells
  array set ::Fear::Spells {
			5782 22891
	 	  6213 22891
	 	  6215 22891
	}
}


 proc ::Fear::OnCastFear { to from spellid } {
	variable feartarget
	if { ! [info exists feartarget($from)] } {
		set feartarget($from) $to
	} elseif { $feartarget($from)!=$to } {
		::CastSpell $from $feartarget($from) $::Fear::Spells($spellid)
		set feartarget($from) $to
	}
 }


proc ::Fear::Init { } {
	if { [ info exists "::StartTCL::VERSION" ] } {
		::Custom::AddSpellScript "::Fear::OnCastFear" [ array names ::Fear::Spells ]
	} else {
		
	}
}

::Fear::Init